home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
L' Effet Pommier 3
/
L'Effet Pommier - Volume 03.iso
/
Programmation
/
Alpha ƒ
/
Tcl
/
SystemCode
/
internetConfig.tcl
< prev
next >
Wrap
Text File
|
1996-01-25
|
700b
|
21 lines
proc internetProc {menu item} {
global HOME
if {[catch {switch $item {
goTo icOpen
help {edit -r "$HOME:Help:Internet Config"}
webBrowser {launch -f [icGetPref -t 1 {helperÑhttp}]}
mailClient {launch -f [icGetPref -t 1 {helperÑmailto}]}
ftpClient {launch -f [icGetPref -t 1 {helperÑftp}]}
gopherClient {launch -f [icGetPref -t 1 {helperÑgopher}]}
telnetClient {launch -f [icGetPref -t 1 {helperÑtelnet}]}
newsClient {launch -f [icGetPref -t 1 {helperÑnews}]}
resolveUrl {icURL [getSelect]}
viewHtmlFile htmlSendWindow
}}]} {
alertnote "Despite what Internet Config says, you should reboot after using IC for the first time."
launch -f "$HOME:Tools:Internet Config"
}
}